
#Include "fbstrings.bi"

Using FB.Strings

Dim As String source(0 To 2) 	=> { 															 _
													"<body bgcolor=""%color%""></body>"		,_
													"<p>%content%</p>"							,_
													"<a href=""%url%"">link</a>" 				 }													

Dim As String find(0 To 2) 	=> { "%color%", "%content%", "%url%" }

Dim As String replace(0 To 2)	=> { "#ff0000", "Some content inside paragraph", "http://www.google.com" }

Dim As String result()

StrReplace source(), find(), replace(), result()

For i As Integer = 0 To 2
	Print result(i)
Next 

Sleep